4.3.1.1 (a+b tan)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    255985,       5190]
NotebookOptionsPosition[    247683,       4974]
NotebookOutlinePosition[    249341,       5027]
CellTagsIndexPosition[    249298,       5024]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   StyleBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    FontSize->16]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontSize->12,
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.611794746478099*^9, 
   3.6117947468471203`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, 3.6117947892695465`*^9, {
   3.6239667170507917`*^9, 3.623966717180792*^9}, {3.627681607888446*^9, 
   3.6276816081784463`*^9}, {3.6276828258498144`*^9, 3.627682826919816*^9}, {
   3.6276836725155373`*^9, 3.6276836727755375`*^9}, {3.627684681811106*^9, 
   3.627684682341507*^9}, {3.6577461225258245`*^9, 3.6577461572908754`*^9}, {
   3.664829940226043*^9, 3.6648299406580677`*^9}, {3.6749420470397196`*^9, 
   3.6749420506159244`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.562086029584165*^9, 3.5620860479702168`*^9}, 3.5620882070428305`*^9, {
   3.5620882752329264`*^9, 3.5620882797529325`*^9}, 3.563319597817653*^9, 
   3.5967352139015026`*^9, 3.611791626309894*^9, 3.623965547576949*^9, 
   3.623965583897*^9, {3.6277670557684*^9, 3.6277670559712005`*^9}, {
   3.664829440921485*^9, 3.664829441572522*^9}, 3.6749418690865417`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.1, CRC 423, A&S 4.3.129", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9}],

Cell["Reference: G&R 2.510.4, CRC 427, A&S 4.3.130", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.498074566539677*^9}],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, {3.562088636533432*^9, 3.5620886414534388`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    RowBox[{"b", " ", "b", " ", 
     SuperscriptBox[
      RowBox[{"Sec", "[", "z", "]"}], "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]]}], "-", 
    RowBox[{
     SuperscriptBox["b", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5154520563224115`*^9, 3.515452061602419*^9}, {
   3.5607253652972717`*^9, 3.5607253652972717`*^9}, {3.5633262705069947`*^9, 
   3.5633262705269947`*^9}, {3.56332844563004*^9, 3.56332844563004*^9}, {
   3.5633284883601*^9, 3.5633284903201027`*^9}, {3.563465080915405*^9, 
   3.5634650883778315`*^9}, {3.6239659004376335`*^9, 3.6239659004376335`*^9}, 
   3.6284029558135886`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.498070579139242*^9, 3.49807059487967*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   SuperscriptBox["b", "2"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, {
   3.515452173602576*^9, 3.515452194482605*^9}, {3.5624327916576467`*^9, 
   3.562432793447649*^9}, {3.5624328902477846`*^9, 3.5624328926977882`*^9}, {
   3.562432989877924*^9, 3.562432992597928*^9}, {3.5624332822983336`*^9, 
   3.562433283508335*^9}, {3.563326270536995*^9, 3.563326270556995*^9}, {
   3.563328263369785*^9, 3.5633282687197924`*^9}, {3.563464319582859*^9, 
   3.5634643196028605`*^9}, {3.5634651254429517`*^9, 
   3.5634651466101627`*^9}, {3.6239655839069996`*^9, 3.623965583927*^9}, {
   3.6239659140776525`*^9, 3.623965918307658*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"tan", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.515452039762388*^9, 3.56072507141686*^9, {3.5607251880870237`*^9, 
   3.560725190647027*^9}, 3.5620911587469635`*^9, {3.56243279411765*^9, 
   3.562432799127657*^9}, {3.5624328958477926`*^9, 3.562432899447798*^9}, {
   3.5624329958279324`*^9, 3.562432999897938*^9}, {3.562433105518086*^9, 
   3.5624331282081175`*^9}, {3.5633262705669947`*^9, 3.563326270586995*^9}, {
   3.563328272379798*^9, 3.5633282757998023`*^9}, 3.5634644660622373`*^9, 
   3.563464507109585*^9, 3.563464554140275*^9, {3.563464585053043*^9, 
   3.563464585057043*^9}, {3.563465132323345*^9, 3.563465154944639*^9}, 
   3.563465234992217*^9, 3.5641096295006433`*^9, 3.596735750312254*^9, {
   3.6239656215280533`*^9, 3.6239656215380535`*^9}, {3.6239656581081047`*^9, 
   3.623965730191206*^9}, {3.62396595527571*^9, 3.623965964915724*^9}, 
   3.7153785218185525`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860358485236`*^9, 3.562086040791806*^9}, 3.562089174514185*^9, {
   3.562089394264493*^9, 3.5620893957144947`*^9}, 3.563319598047653*^9, 
   3.596735228211523*^9, 3.611791627659896*^9, 3.623965549016951*^9, 
   3.623965583947*^9, {3.6277671192449117`*^9, 3.627767142722953*^9}, {
   3.6648294258206205`*^9, 3.664829444577694*^9}, 3.674941869857586*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.4, CRC 427'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.4980706229285192`*^9}],

Cell["Reference: G&R 2.510.1, CRC 423'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.4980706229285192`*^9, 3.4980746553198013`*^9}],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, {3.562088636533432*^9, 3.5620886414534388`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sec", "[", "z", "]"}], "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], "n"]}], "-", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["b", "2"]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5154520563224115`*^9, 3.515452061602419*^9}, {
   3.5607253652972717`*^9, 3.5607253652972717`*^9}, {3.562088647893448*^9, 
   3.562088647893448*^9}, {3.563319597827653*^9, 3.5633195978476534`*^9}, {
   3.563323572123217*^9, 3.563323575393222*^9}, {3.563323915493698*^9, 
   3.563323940053732*^9}, {3.5633286536503315`*^9, 3.563328690050382*^9}, {
   3.5633288013105383`*^9, 3.5633288013105383`*^9}, {3.563465197780089*^9, 
   3.5634652025023594`*^9}, {3.6239660439458346`*^9, 3.6239660439458346`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.498070579139242*^9, 3.49807059487967*^9}, {3.4980707881328096`*^9, 
   3.4980707891624117`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"n", "+", "1"}]], 
       RowBox[{"b", " ", "d", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["b", "2"]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.515452175202578*^9, 3.5154522068326225`*^9}, {
   3.5624328110576735`*^9, 3.5624328133176765`*^9}, {3.5624329099778123`*^9, 
   3.5624329130878167`*^9}, {3.5624330210579677`*^9, 3.562433024817973*^9}, {
   3.562433105548086*^9, 3.562433105558086*^9}, {3.562433137798131*^9, 
   3.562433141318136*^9}, {3.5633262706369953`*^9, 3.5633262706569953`*^9}, 
   3.5633285867502375`*^9, {3.563464319647863*^9, 3.563464319667864*^9}, {
   3.5634651895676193`*^9, 3.5634651913377204`*^9}, {3.623965583967*^9, 
   3.623965583987*^9}, {3.6239660575258536`*^9, 3.6239660593058558`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"tan", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"b", "*", "d", "*", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"b", "^", "2"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.515452148892541*^9, 3.5607250768868675`*^9, {
   3.5607251962270346`*^9, 3.5607251985570383`*^9}, 3.5620911609169664`*^9, {
   3.5624328139076777`*^9, 3.562432819057685*^9}, {3.5624329173378224`*^9, 
   3.562432921117828*^9}, {3.562433028297978*^9, 3.562433032327984*^9}, {
   3.5624331055680857`*^9, 3.562433152598152*^9}, {3.563326270666995*^9, 
   3.5633262706769953`*^9}, 3.5633286201702843`*^9, 3.5634644661072397`*^9, {
   3.563464530989951*^9, 3.563464554159276*^9}, {3.5634645850770445`*^9, 
   3.563464585081045*^9}, 3.563465212880953*^9, {3.563465261380727*^9, 
   3.563465291019422*^9}, 3.564109629520643*^9, 3.596735762522271*^9, {
   3.623965621598053*^9, 3.623965621598053*^9}, {3.6239656602681074`*^9, 
   3.623965732411209*^9}, {3.6239661032769184`*^9, 3.6239661075569243`*^9}, {
   3.6239661460809793`*^9, 3.623966163550004*^9}, 3.7153785384275026`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.561757406424553*^9, 3.561757409304557*^9}, 3.561757856795183*^9, {
   3.5617585140686035`*^9, 3.561758517138608*^9}, 3.5620304165895786`*^9, 
   3.5620860122311726`*^9, 3.5620881076726913`*^9, 3.563319597727653*^9, 
   3.611791625779893*^9, 3.623965547066948*^9, 3.6239655957670164`*^9, 
   3.627682854823862*^9, 3.627683442643109*^9, {3.627683669636532*^9, 
   3.6276836699995327`*^9}, {3.6648294485889235`*^9, 3.664829449076951*^9}, 
   3.6749418703866158`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.526.17, CRC 292, A&S 4.3.115", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9}],

Cell["Reference: G&R 2.526.33, CRC 293, A&S 4.3.118", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.4980744596095276`*^9}],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, {
   3.567448483323786*^9, 3.5674484889637938`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{"d", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]]}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Cos", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, {3.515451911012208*^9, 
   3.515451914372213*^9}, {3.560725337807233*^9, 3.560725338777234*^9}, {
   3.563319597737653*^9, 3.563319597757653*^9}, {3.563323148402624*^9, 
   3.5633231500926266`*^9}, {3.5633231823526716`*^9, 3.563323191232684*^9}, {
   3.5674484953038025`*^9, 3.5674484992638083`*^9}, {3.6239655957770166`*^9, 
   3.6239655957870164`*^9}, {3.6239657856122837`*^9, 3.6239657856122837`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"Log", "[", 
        RowBox[{"Cos", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}], "]"}], 
       "d"]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, {3.5154519262822294`*^9, 3.5154519320322375`*^9}, {
   3.563319597767653*^9, 3.563319597777653*^9}, 3.5633230668925095`*^9, {
   3.623965595797016*^9, 3.623965595797016*^9}, 3.6239658009053063`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"tan", "[", 
     RowBox[{"c_.", "+", 
      RowBox[{"d_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Log", "[", 
      RowBox[{"RemoveContent", "[", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], ",", "x"}], "]"}], "]"}]}], "/", 
    "d"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.5154518875221753`*^9, {3.563319597787653*^9, 3.563319597787653*^9}, 
   3.563323048152484*^9, 3.5641089136756387`*^9, {3.570299397543764*^9, 
   3.5702993999937677`*^9}, 3.6239656182680483`*^9, {3.623965656828102*^9, 
   3.623965686611145*^9}, 3.623965802825309*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9, 
   3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
   3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9, 
   3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206072284613`*^9, 
   3.5608206196984787`*^9}, {3.5608207431986513`*^9, 3.5608207484086585`*^9}, 
   3.562089889175186*^9, {3.5620902904057474`*^9, 3.5620902918057494`*^9}, 
   3.562090929376642*^9, 3.5633195988076544`*^9, {3.57930624866665*^9, 
   3.579306271996683*^9}, {3.579306632247187*^9, 3.5793066327471876`*^9}, {
   3.579319536428376*^9, 3.579319536998377*^9}, 3.611791627229895*^9, 
   3.6239655485469503`*^9, 3.6239655958070164`*^9, 3.6276828562508655`*^9, 
   3.627767393820994*^9, {3.664829465539893*^9, 3.6648294660079193`*^9}, 
   3.674941870952648*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: This rule not necessary since ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " automatically simplifies ",
 Cell[BoxData[
  FractionBox["1", 
   RowBox[{"Tan", "[", "z", "]"}]]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
    3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
    3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
    3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
    3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
    3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9},
     3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
    3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
    3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
    3.5793063319167666`*^9, 3.5793063849968405`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " to ",
 Cell[BoxData[
  RowBox[{"Cot", "[", "z", "]"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
    3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
    3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
    3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
    3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
    3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9},
     3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
    3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
    3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
    3.5793063319167666`*^9, 3.5793063849968405`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.5793064033768663`*^9, 
   3.579306404486868*^9}, {3.5793064664369545`*^9, 3.579306580157114*^9}, {
   3.5793196657985573`*^9, 3.5793196720485663`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9}, 
   3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
   3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.5793064033768663`*^9, 
   3.579306404486868*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"Tan", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"Cot", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], 
       RowBox[{"\[DifferentialD]", 
        RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
         FractionBox[
          RowBox[{"Log", "[", 
           RowBox[{"Sin", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}], "]"}], 
          "d"]}]}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9, 
   3.515623587913493*^9, 3.515623801296698*^9, {3.562089891585189*^9, 
   3.562089910935216*^9}, {3.5633195988176546`*^9, 3.5633195988476543`*^9}, {
   3.5793063319167666`*^9, 3.5793063849968405`*^9}, {3.5793195643584156`*^9, 
   3.5793195679784203`*^9}, {3.5793196115384817`*^9, 
   3.5793196142584853`*^9}, {3.6239655958270164`*^9, 3.6239655958470163`*^9}, 
   3.6239659957357674`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"tan", "[", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
   ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"RemoveContent", "[", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}], ",", "x"}], "]"}], "]"}], "/", 
     "d"}], " ", "/;", "\n", 
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}], " ", 
  "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.499019090105754*^9, 
   3.4990190901157537`*^9}, 3.499019132695813*^9, 3.4990196477265344`*^9, {
   3.5153623004917097`*^9, 3.515362306071718*^9}, {3.51536301466271*^9, 
   3.515363021302719*^9}, {3.515363078402799*^9, 3.5153630820928044`*^9}, 
   3.5156216240411663`*^9, 3.515622742851158*^9, 3.51562286648423*^9, 
   3.5156232626368885`*^9, {3.515623565143191*^9, 3.515623570285485*^9}, 
   3.515623676213544*^9, {3.5608205440283723`*^9, 3.560820557008391*^9}, {
   3.5620899310752444`*^9, 3.562089949935271*^9}, {3.5633195988576546`*^9, 
   3.5633195988776546`*^9}, 3.563325884306454*^9, 3.5641089426456795`*^9, {
   3.579306415726884*^9, 3.579306458776944*^9}, {3.5793066051571493`*^9, 
   3.579306608457154*^9}, {3.579319556438404*^9, 3.5793195567784047`*^9}, 
   3.579319639798521*^9, 3.623965621558053*^9, {3.6239656591081057`*^9, 
   3.623965686661145*^9}, 3.6239660150357943`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9, 
   3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
   3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9, 
   3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206647085414`*^9, 
   3.5608206690385475`*^9}, 3.5608207416086493`*^9, 3.5620901204955096`*^9, 
   3.562090571316141*^9, {3.562428093873062*^9, 3.5624281024030743`*^9}, 
   3.562428200593211*^9, {3.5624286040637765`*^9, 3.562428605353778*^9}, 
   3.562428696853906*^9, 3.5624289379442434`*^9, {3.5624309020969934`*^9, 
   3.562430902326994*^9}, 3.562430997347127*^9, 3.5624311036572757`*^9, 
   3.563326271226996*^9, 3.563464329758441*^9, {3.563511959516881*^9, 
   3.563511959776881*^9}, {3.563512309967372*^9, 3.563512318977384*^9}, {
   3.563512377367466*^9, 3.5635123785274677`*^9}, 3.567475797030461*^9, {
   3.5674758292105055`*^9, 3.5674758304505076`*^9}, 3.567492496812845*^9, {
   3.5674925682529454`*^9, 3.5674925682529454`*^9}, 3.5698705583384438`*^9, {
   3.569870616167745*^9, 3.5698706238429585`*^9}, {3.569870678661455*^9, 
   3.5698706788330555`*^9}, {3.569872398329338*^9, 3.5698723984993386`*^9}, {
   3.5698733621706877`*^9, 3.569873364940692*^9}, {3.5698735670309744`*^9, 
   3.569873567220975*^9}, {3.569875234083308*^9, 3.5698752343433084`*^9}, {
   3.5699063677562723`*^9, 3.5699063704062757`*^9}, {3.5699064113963337`*^9, 
   3.5699064116463337`*^9}, {3.569907027327196*^9, 3.569907027507196*^9}, {
   3.569907740268194*^9, 3.569907740478194*^9}, {3.5699146162462864`*^9, 
   3.569914617226288*^9}, 3.580349208908022*^9, {3.5803492476680765`*^9, 
   3.5803492476680765`*^9}, {3.598458672597743*^9, 3.598458673777745*^9}, {
   3.598458731217825*^9, 3.598458731217825*^9}, 3.6117916306299*^9, 
   3.623965552126955*^9, 3.6239655841870003`*^9, 3.627682860163871*^9, 
   3.627683991624115*^9, {3.6276840662532454`*^9, 3.6276840679912505`*^9}, {
   3.627684216940525*^9, 3.627684216940525*^9}, {3.6276983193333273`*^9, 
   3.6276983194581275`*^9}, {3.6276983794950333`*^9, 3.6276983797446337`*^9}, 
   3.6276984965392413`*^9, {3.6648294700541506`*^9, 3.664829470461174*^9}, {
   3.6648298671928663`*^9, 3.6648298678229017`*^9}, {3.665711867008824*^9, 
   3.6657118672740245`*^9}, 3.6749418724597344`*^9, {3.6764835343134503`*^9, 
   3.676483536331566*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, 
   3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
   3.5698706369625816`*^9, 3.5698706415489893`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    FractionBox["b", "d"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       SuperscriptBox["x", "n"], 
       RowBox[{
        SuperscriptBox["b", "2"], "+", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4990190900757537`*^9, 3.4990190900757537`*^9}, {3.4990193104160624`*^9, 
   3.4990193104160624`*^9}, {3.499019370396146*^9, 3.499019370396146*^9}, {
   3.5156209247561693`*^9, 3.5156209286543922`*^9}, {3.515622822306703*^9, 
   3.5156228246708384`*^9}, {3.5156229607426214`*^9, 
   3.5156229738013678`*^9}, {3.562091329247202*^9, 3.562091329247202*^9}, {
   3.562428201883213*^9, 3.562428202383214*^9}, {3.562428612523788*^9, 
   3.5624286129437885`*^9}, {3.562428696863906*^9, 3.562428696863906*^9}, {
   3.562428947504257*^9, 3.5624289484942584`*^9}, {3.562431490917818*^9, 
   3.562431490917818*^9}, {3.563465048049525*^9, 3.5634650480505247`*^9}, {
   3.567475920280633*^9, 3.5674759403506613`*^9}, {3.56749257861296*^9, 
   3.567492591552978*^9}, {3.5698707535727863`*^9, 3.5698707747576237`*^9}, {
   3.569870961661552*^9, 3.569870961661552*^9}, {3.5698733773407087`*^9, 
   3.5698733854507203`*^9}, {3.5698961808061028`*^9, 
   3.5698961808061028`*^9}, {3.5698962280117855`*^9, 3.569896237543402*^9}, {
   3.5699064518263903`*^9, 3.5699064757064238`*^9}, {3.5967354343118114`*^9, 
   3.5967354343118114`*^9}, {3.5967354897918887`*^9, 3.596735501191905*^9}, {
   3.6239655841970005`*^9, 3.6239655958870163`*^9}, {3.623966626118663*^9, 
   3.623966629196667*^9}, {3.6764829362572436`*^9, 3.6764829362572436`*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9, 
   3.4975769425809107`*^9}, {3.4975772088912835`*^9, 
   3.4975772155212927`*^9}, {3.561760628131563*^9, 3.5617606456415873`*^9}, {
   3.561765851298876*^9, 3.561765851298876*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["b", "d"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", "n"], 
        RowBox[{
         SuperscriptBox["b", "2"], "+", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9, 
   3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9, 
   3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9, 
   3.4990196235665007`*^9}, {3.5153630090427017`*^9, 
   3.5153630130727077`*^9}, {3.5153630748827944`*^9, 
   3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9}, 
   3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234431882153`*^9, {
   3.562091286127142*^9, 3.5620912896971464`*^9}, {3.562428203893216*^9, 
   3.5624282056732187`*^9}, {3.56242861387379*^9, 3.5624286151137915`*^9}, {
   3.562428696873906*^9, 3.562428696873906*^9}, {3.56242894954426*^9, 
   3.5624289510342617`*^9}, {3.563326271246996*^9, 3.5633262712769957`*^9}, {
   3.563464329782442*^9, 3.563464342876191*^9}, {3.563511553916313*^9, 
   3.5635115650363283`*^9}, {3.5635124127575154`*^9, 3.563512417527522*^9}, {
   3.567475797890462*^9, 3.567475798520463*^9}, {3.5674759588406873`*^9, 
   3.567475977210713*^9}, {3.567492497432846*^9, 3.567492497922847*^9}, {
   3.5674927101731443`*^9, 3.5674927140131493`*^9}, 3.5698706592082205`*^9, {
   3.569870993563608*^9, 3.5698710217840576`*^9}, {3.5698710518609104`*^9, 
   3.5698710746213503`*^9}, {3.5698734112607565`*^9, 3.56987343535079*^9}, {
   3.5698961955013285`*^9, 3.5698962657014513`*^9}, {3.569906423646351*^9, 
   3.5699064356363673`*^9}, {3.569906538816512*^9, 3.569906553686533*^9}, {
   3.58034883238149*^9, 3.580348832891491*^9}, 3.580349044937793*^9, 
   3.5803491148278904`*^9, {3.6239655842070003`*^9, 3.6239655958970165`*^9}, {
   3.623966646176691*^9, 3.623966668828724*^9}, {3.676482873136633*^9, 
   3.676482903166351*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.562428615963793*^9, 3.5624286312138147`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b_.", "*", 
       RowBox[{"tan", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "n"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "^", "2"}], "+", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x", 
      ",", 
      RowBox[{"b", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.497576340197461*^9, 3.497576630537868*^9, {3.499019090105754*^9, 
   3.4990190901157537`*^9}, 3.499019132695813*^9, 3.4990196477265344`*^9, {
   3.5153623004917097`*^9, 3.515362306071718*^9}, {3.51536301466271*^9, 
   3.515363021302719*^9}, {3.515363078402799*^9, 3.5153630820928044`*^9}, 
   3.5156216240411663`*^9, 3.515622742851158*^9, 3.51562286648423*^9, 
   3.5620911653669724`*^9, {3.562091297907158*^9, 3.5620912990671597`*^9}, {
   3.56242820639322*^9, 3.5624282112732267`*^9}, {3.5624286169637947`*^9, 
   3.5624286195937977`*^9}, {3.5624286968839064`*^9, 3.562428696893906*^9}, {
   3.5624289545842667`*^9, 3.56242895689427*^9}, {3.562430983637108*^9, 
   3.562431009297144*^9}, {3.5624311616773567`*^9, 3.5624311691673675`*^9}, 
   3.562431340337607*^9, {3.563326271286996*^9, 3.563326271316996*^9}, 
   3.5634644663372526`*^9, {3.563464531113958*^9, 3.563464554243281*^9}, {
   3.5634645852030516`*^9, 3.563464585211052*^9}, 3.563465349876788*^9, 
   3.5634659936141033`*^9, {3.563511595316371*^9, 3.5635116122263947`*^9}, 
   3.5635123998174973`*^9, {3.5635124371075497`*^9, 3.5635124484175653`*^9}, 
   3.5641096467406673`*^9, {3.5674759826507206`*^9, 3.5674760302807875`*^9}, {
   3.567479102755089*^9, 3.567479105835093*^9}, {3.5674925274328885`*^9, 
   3.567492544402912*^9}, {3.5674925982529874`*^9, 3.5674926169630136`*^9}, {
   3.567492730013172*^9, 3.567492740113186*^9}, {3.5674930805636625`*^9, 
   3.567493080873663*^9}, {3.569871101234997*^9, 3.5698711077246084`*^9}, {
   3.5698711540722895`*^9, 3.56987116552271*^9}, 3.5698716005982213`*^9, {
   3.569872401789343*^9, 3.569872405309348*^9}, {3.5698734654208326`*^9, 
   3.5698735049508877`*^9}, {3.5698752625433483`*^9, 3.569875266593354*^9}, {
   3.5698962991635103`*^9, 3.5698963508152013`*^9}, {3.56990269122151*^9, 
   3.569902695951781*^9}, {3.5699065625565453`*^9, 3.5699066285466375`*^9}, {
   3.5699067106567526`*^9, 3.569906745436801*^9}, {3.569906824916912*^9, 
   3.5699068476369443`*^9}, {3.569907394027709*^9, 3.56990745151779*^9}, {
   3.569907726788175*^9, 3.56990773027818*^9}, {3.569914308935856*^9, 
   3.5699143120758605`*^9}, 3.569914529486165*^9, 3.580349151697942*^9, {
   3.58034918594799*^9, 3.580349195508003*^9}, 3.596735685502163*^9, {
   3.623965622018054*^9, 3.6239656220280538`*^9}, {3.623965666061116*^9, 
   3.623965733821211*^9}, {3.623966133220961*^9, 3.6239661479109817`*^9}, 
   3.676483127232167*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"n", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, 3.6117947892695465`*^9, {
   3.6239667170507917`*^9, 3.623966717180792*^9}, {3.627681607888446*^9, 
   3.6276816081784463`*^9}, {3.6276828258498144`*^9, 3.627682826919816*^9}, {
   3.6276836725155373`*^9, 3.6276836727755375`*^9}, {3.627684681811106*^9, 
   3.627684682341507*^9}, {3.6577461225258245`*^9, 3.6577461572908754`*^9}, {
   3.664829940226043*^9, 3.6648299406580677`*^9}, {3.6749419698113027`*^9, 
   3.6749419700893183`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.562108806388912*^9, 3.562108809727318*^9}, {3.5621098465431395`*^9, 
   3.562109866729575*^9}, {3.56218186229636*^9, 3.562181866846366*^9}, 
   3.562182235776883*^9, {3.562182478707223*^9, 3.562182478997223*^9}, 
   3.563340740401106*^9, {3.5653697083837733`*^9, 3.5653697240737953`*^9}, {
   3.5653699358840923`*^9, 3.565369942474101*^9}, 3.61179478722643*^9, {
   3.6239667156907897`*^9, 3.62396671584079*^9}, {3.6577462001609383`*^9, 
   3.6577462017609406`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.4982482263699856`*^9, 3.4982482282399883`*^9}, {3.4982490094710817`*^9, 
   3.4982490138910885`*^9}, {3.4982496411619663`*^9, 3.49824964382197*^9}, {
   3.5607248508665514`*^9, 3.5607248508665514`*^9}, {3.5621098706919813`*^9, 
   3.5621098706919813`*^9}, {3.56218186986637*^9, 3.5621818708763723`*^9}, 
   3.5621822413168907`*^9, {3.562182394547105*^9, 3.5621824032671175`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"], "\[Equal]", 
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"], "+", 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sec", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], "+", 
    RowBox[{"2", " ", "a", " ", "b", " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]],
  CellChangeTimes->{{3.562182337157025*^9, 3.5621823764870796`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.4982482263699856`*^9, 3.4982482282399883`*^9}, {3.4982490094710817`*^9, 
   3.4982490138910885`*^9}, {3.4982496411619663`*^9, 3.49824964382197*^9}, {
   3.5607248508665514`*^9, 3.5607248508665514`*^9}, {3.5621098706919813`*^9, 
   3.5621098706919813`*^9}, {3.56218186986637*^9, 3.5621818708763723`*^9}, 
   3.5621822413168907`*^9, {3.5621824088571253`*^9, 3.562182416527136*^9}, {
   3.563340740411106*^9, 3.5633407404211063`*^9}, {3.5633433151047106`*^9, 
   3.5633433151047106`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.5607248531065545`*^9, 3.5607248531065545`*^9}, {3.5621102848883095`*^9, 
   3.5621102848883095`*^9}, {3.563343507874981*^9, 3.563343507874981*^9}, {
   3.565369744493824*^9, 3.565369744493824*^9}, 3.5653699543241177`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], ")"}]}]}], "x"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}]}], "d"], "+", 
  RowBox[{"2", "a", " ", "b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, {
   3.498071646517518*^9, 3.4980716657211514`*^9}, 3.4980823759499397`*^9, {
   3.498248059589752*^9, 3.4982480989598074`*^9}, {3.4982481314798527`*^9, 
   3.4982481328098545`*^9}, {3.498279997886505*^9, 3.4982800189309425`*^9}, {
   3.4982800818146524`*^9, 3.498280090301068*^9}, {3.5607243775558887`*^9, 
   3.560724381525894*^9}, {3.560724644846263*^9, 3.560724645606264*^9}, {
   3.5607258066378894`*^9, 3.5607258107078953`*^9}, {3.562181860126357*^9, 
   3.562181957186493*^9}, 3.562181997296549*^9, {3.5633407404311066`*^9, 
   3.563340740451106*^9}, {3.563343329364731*^9, 3.563343353234764*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ")"}], "*", "x"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}], "/", "d"}]}], " ", "+", " ", 
    RowBox[{"2", "*", "a", "*", "b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, {
   3.4980716301530895`*^9, 3.4980716358002987`*^9}, {3.4980766822826395`*^9, 
   3.498076685822644*^9}, {3.4980768335128508`*^9, 3.498076848172871*^9}, {
   3.4980824096599865`*^9, 3.4980824722700744`*^9}, {3.498106426425337*^9, 
   3.498106427765339*^9}, {3.498107482956816*^9, 3.4981074981868377`*^9}, 
   3.4981076002169805`*^9, {3.498248209339962*^9, 3.498248212939967*^9}, {
   3.4982482597700324`*^9, 3.4982482605100336`*^9}, {3.498249005121076*^9, 
   3.498249006041077*^9}, {3.498249646041973*^9, 3.4982496469119744`*^9}, {
   3.4982694886094933`*^9, 3.4982694901382957`*^9}, {3.560724645856264*^9, 
   3.5607246475862665`*^9}, 3.5607249542566957`*^9, {3.560725843367941*^9, 
   3.5607258504179506`*^9}, {3.562109127381876*^9, 3.562109129051079*^9}, {
   3.5621098734999866`*^9, 3.56210987541879*^9}, {3.5621824882472363`*^9, 
   3.5621824947972455`*^9}, {3.562182533367299*^9, 3.5621825397773085`*^9}, {
   3.5633407404611063`*^9, 3.5633407404811063`*^9}, {3.563343372544791*^9, 
   3.5633433778147984`*^9}, 3.5634022141054535`*^9, 3.5653697592338448`*^9, 
   3.5653699486341095`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.562108806388912*^9, 3.562108809727318*^9}, {3.5621098465431395`*^9, 
   3.562109866729575*^9}, {3.56218186229636*^9, 3.562181866846366*^9}, 
   3.562182235776883*^9, {3.562182478707223*^9, 3.562182478997223*^9}, 
   3.563340740401106*^9, {3.5653697083837733`*^9, 3.5653697240737953`*^9}, {
   3.5653699358840923`*^9, 3.565369942474101*^9}, 3.61179478722643*^9, {
   3.6239667156907897`*^9, 3.62396671584079*^9}, {3.6577462001609383`*^9, 
   3.6577462017609406`*^9}, {3.6577462330649843`*^9, 
   3.6577462417249966`*^9}, {3.6577481415120544`*^9, 3.657748141792055*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.4982482263699856`*^9, 3.4982482282399883`*^9}, {3.4982490094710817`*^9, 
   3.4982490138910885`*^9}, {3.4982496411619663`*^9, 3.49824964382197*^9}, {
   3.5607248508665514`*^9, 3.5607248508665514`*^9}, {3.5621098706919813`*^9, 
   3.5621098706919813`*^9}, {3.56218186986637*^9, 3.5621818708763723`*^9}, 
   3.5621822413168907`*^9, {3.562182394547105*^9, 3.5621824032671175`*^9}}],

Cell["\<\
Note: If common powers of tangents are collected, this results in a compact \
antiderivative; but requires numerous steps because of fanout.\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.4982482263699856`*^9, 3.4982482282399883`*^9}, {3.4982490094710817`*^9, 
   3.4982490138910885`*^9}, {3.4982496411619663`*^9, 3.49824964382197*^9}, {
   3.5607248508665514`*^9, 3.5607248508665514`*^9}, {3.5621098706919813`*^9, 
   3.5621098706919813`*^9}, {3.56218186986637*^9, 3.5621818708763723`*^9}, 
   3.5621822413168907`*^9, {3.562182394547105*^9, 3.5621824032671175`*^9}, {
   3.6577480065708575`*^9, 3.6577481133100147`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.5154514987516313`*^9, 3.5154514987516313`*^9}, {3.515451721511943*^9, 
   3.515451722311944*^9}, {3.5156412805019484`*^9, 3.5156412805019484`*^9}, {
   3.5607253929473104`*^9, 3.5607253929473104`*^9}, {3.562109026137698*^9, 
   3.5621090270893*^9}, {3.562109788167837*^9, 3.562109788167837*^9}, {
   3.56218263364744*^9, 3.56218263364744*^9}, {3.5633434863649507`*^9, 
   3.5633434863649507`*^9}, {3.565368450132012*^9, 3.565368450132012*^9}, {
   3.6577462645280294`*^9, 3.6577462645280294`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Tan", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], ",", "x"}], 
        "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, {
   3.498071646517518*^9, 3.4980716657211514`*^9}, 3.4980823759499397`*^9, {
   3.498248059589752*^9, 3.4982480989598074`*^9}, {3.4982481314798527`*^9, 
   3.4982481328098545`*^9}, {3.498279997886505*^9, 3.4982800189309425`*^9}, {
   3.4982800818146524`*^9, 3.498280090301068*^9}, {3.5607243775558887`*^9, 
   3.560724381525894*^9}, {3.560724644846263*^9, 3.560724645606264*^9}, {
   3.5607258066378894`*^9, 3.5607258107078953`*^9}, {3.562181860126357*^9, 
   3.562181957186493*^9}, 3.562181997296549*^9, {3.5633407404311066`*^9, 
   3.563340740451106*^9}, {3.563343329364731*^9, 3.563343353234764*^9}, {
   3.6577462717880397`*^9, 3.657746297972077*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"ExpandIntegrand", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
        "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
      " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"n", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, {
   3.4980716301530895`*^9, 3.4980716358002987`*^9}, {3.4980766822826395`*^9, 
   3.498076685822644*^9}, {3.4980768335128508`*^9, 3.498076848172871*^9}, {
   3.4980824096599865`*^9, 3.4980824722700744`*^9}, {3.498106426425337*^9, 
   3.498106427765339*^9}, {3.498107482956816*^9, 3.4981074981868377`*^9}, 
   3.4981076002169805`*^9, {3.498248209339962*^9, 3.498248212939967*^9}, {
   3.4982482597700324`*^9, 3.4982482605100336`*^9}, {3.498249005121076*^9, 
   3.498249006041077*^9}, {3.498249646041973*^9, 3.4982496469119744`*^9}, {
   3.4982694886094933`*^9, 3.4982694901382957`*^9}, {3.560724645856264*^9, 
   3.5607246475862665`*^9}, 3.5607249542566957`*^9, {3.560725843367941*^9, 
   3.5607258504179506`*^9}, {3.562109127381876*^9, 3.562109129051079*^9}, {
   3.5621098734999866`*^9, 3.56210987541879*^9}, {3.5621824882472363`*^9, 
   3.5621824947972455`*^9}, {3.562182533367299*^9, 3.5621825397773085`*^9}, {
   3.5633407404611063`*^9, 3.5633407404811063`*^9}, {3.563343372544791*^9, 
   3.5633433778147984`*^9}, 3.5634022141054535`*^9, 3.5653697592338448`*^9, 
   3.5653699486341095`*^9, {3.6577463079520907`*^9, 3.657746323216113*^9}, 
   3.65774635667216*^9, {3.6577479879038286`*^9, 3.657747995212841*^9}, 
   3.7153785590566826`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368261571748*^9}, {
   3.5653699708741407`*^9, 3.5653699710741415`*^9}, 3.6117947892695465`*^9, {
   3.6239667170507917`*^9, 3.623966717180792*^9}, {3.627681607888446*^9, 
   3.6276816081784463`*^9}, {3.6276828258498144`*^9, 3.627682826919816*^9}, {
   3.6276836725155373`*^9, 3.6276836727755375`*^9}, {3.627684681811106*^9, 
   3.627684682341507*^9}, {3.664829943978258*^9, 3.664829944395282*^9}, {
   3.674941979124835*^9, 3.6749419793728495`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.5621087595420303`*^9, 3.562108763332836*^9}, {3.562109030287306*^9, 
   3.562109031098507*^9}, {3.562109754846178*^9, 3.56210978426783*^9}, {
   3.5621826197474203`*^9, 3.562182624547427*^9}, 3.5633407405311065`*^9, {
   3.5633434856749496`*^9, 3.5633434856749496`*^9}, {3.5653684049619484`*^9, 
   3.565368439411997*^9}, {3.5653688554025793`*^9, 3.5653688570425816`*^9}, {
   3.5802490734265037`*^9, 3.5802490763965073`*^9}, {3.598459871779422*^9, 
   3.598459873579425*^9}, 3.6117947900545917`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Symmetric tangent recurrence 1b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "0"}], ",", 
   RowBox[{"B", "\[Rule]", "1"}], ",", 
   RowBox[{"m", "\[Rule]", 
    RowBox[{"-", "1"}]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.56303300559656*^9, 3.563033010526567*^9}, {
   3.5630332375968847`*^9, 3.563033251186904*^9}, {3.5642805146034613`*^9, 
   3.5642805156535215`*^9}, {3.598389508917079*^9, 3.598389508917079*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.5154514987516313`*^9, 3.5154514987516313`*^9}, {3.515451721511943*^9, 
   3.515451722311944*^9}, {3.5156412805019484`*^9, 3.5156412805019484`*^9}, {
   3.5607253929473104`*^9, 3.5607253929473104`*^9}, {3.562109026137698*^9, 
   3.5621090270893*^9}, {3.562109788167837*^9, 3.562109788167837*^9}, {
   3.56218263364744*^9, 3.56218263364744*^9}, {3.5633434863649507`*^9, 
   3.5633434863649507`*^9}, {3.565368450132012*^9, 3.565368450132012*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{"2", " ", "a", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, {
   3.498071392034271*^9, 3.4980714173687153`*^9}, {3.515451141471131*^9, 
   3.515451142251132*^9}, {3.563340740541106*^9, 3.5633407405611067`*^9}, {
   3.5641725934843197`*^9, 3.5641726010543303`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"2", "*", "a", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980707537347493`*^9, 3.4980713809270515`*^9, {3.4980714760872183`*^9, 
   3.4980714779280214`*^9}, {3.4980766748526287`*^9, 3.498076678512634*^9}, {
   3.4980767946527967`*^9, 3.4980768297628455`*^9}, {3.4980966387016344`*^9, 
   3.498096641271638*^9}, {3.5154510532610073`*^9, 3.5154510592010155`*^9}, {
   3.51545172670195*^9, 3.515451728001952*^9}, 3.515641261237847*^9, 
   3.5607250831068764`*^9, {3.560725202967044*^9, 3.560725205007047*^9}, {
   3.562109035684915*^9, 3.5621090373541183`*^9}, {3.562109766858199*^9, 
   3.5621097685742025`*^9}, {3.562182652317466*^9, 3.5621826557774706`*^9}, {
   3.5633407405611067`*^9, 3.563340740581106*^9}, 3.5633437214152794`*^9, 
   3.5634022141454535`*^9, {3.564172605754337*^9, 3.564172610344343*^9}, {
   3.565368460812027*^9, 3.565368465802034*^9}, 3.7061392671849957`*^9, 
   3.7153785218365536`*^9, 3.7153785716043997`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.562108768824046*^9, 3.5621087722404523`*^9}, {3.5621101539260793`*^9, 
   3.5621101906017437`*^9}, {3.562110224531803*^9, 3.562110228993411*^9}, 
   3.563340741111107*^9, {3.563343503174974*^9, 3.563343503174974*^9}, {
   3.5653686135622406`*^9, 3.5653686138822412`*^9}, {3.5653686673423157`*^9, 
   3.5653686718523226`*^9}, {3.5653690403928385`*^9, 
   3.5653690403928385`*^9}, {3.5653691233929543`*^9, 3.565369124702956*^9}, {
   3.5794944173435307`*^9, 3.579494419059533*^9}, {3.579494675633184*^9, 
   3.5794946774895873`*^9}, 3.611794790585622*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Symmetric tangent recurrence 2a with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "\[Rule]", "1"}], ",", 
   RowBox[{"B", "\[Rule]", "0"}], ",", 
   RowBox[{"m", "\[Rule]", "0"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.56303300559656*^9, 3.563033010526567*^9}, {
   3.5630332375968847`*^9, 3.563033251186904*^9}, {3.5630353532733574`*^9, 
   3.563035365843375*^9}, {3.5630364723249245`*^9, 3.563036481414937*^9}, {
   3.5630368501854534`*^9, 3.5630368535854583`*^9}, {3.564280169909787*^9, 
   3.5642801708048053`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "<", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082510550128*^9, 
   3.498082538970168*^9}, {3.4980967683718157`*^9, 3.4980967747218246`*^9}, {
   3.515451501261635*^9, 3.515451501261635*^9}, {3.5607253968873158`*^9, 
   3.5607253968873158`*^9}, {3.562110207621373*^9, 3.562110232519017*^9}, {
   3.563343504614976*^9, 3.563343504614976*^9}, {3.56536867745233*^9, 
   3.56536867745233*^9}, {3.5653690507628527`*^9, 3.5653690507628527`*^9}, {
   3.579494427748749*^9, 3.579494427748749*^9}, {3.579494682481596*^9, 
   3.579494682481596*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
       RowBox[{"2", " ", "b", " ", "d", " ", "n"}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "a"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, {
   3.498071646517518*^9, 3.4980716657211514`*^9}, {3.5154511467011385`*^9, 
   3.515451147301139*^9}, {3.563340741121107*^9, 3.563340741141107*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "b", "*", "d", "*", "n"}], ")"}]}]}], " ", "+", " ", 
    "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, {
   3.4980716301530895`*^9, 3.4980716358002987`*^9}, {3.4980766822826395`*^9, 
   3.498076685822644*^9}, {3.4980768335128508`*^9, 3.498076848172871*^9}, {
   3.498096752071793*^9, 3.4980967586218023`*^9}, {3.5154510808810463`*^9, 
   3.5154510855510526`*^9}, 3.5607250884168835`*^9, {3.5607252093970532`*^9, 
   3.5607252178170652`*^9}, {3.5621102112093797`*^9, 
   3.5621102369962254`*^9}, {3.5633407411511073`*^9, 3.5633407411711073`*^9}, 
   3.5633437342752976`*^9, 3.5634022143854537`*^9, {3.5653686492422905`*^9, 
   3.5653686512722936`*^9}, 3.565369043992843*^9, 3.5794944315395555`*^9, 
   3.5794946845563993`*^9, 3.706139267204996*^9, {3.7153785716254015`*^9, 
   3.7153785871572895`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9, 
   3.544978006651713*^9, 3.544978044730829*^9, {3.5450005108293576`*^9, 
   3.545000511047758*^9}, {3.545000719479724*^9, 3.54500072297413*^9}, {
   3.545001302085947*^9, 3.5450013102603617`*^9}, {3.545001740587117*^9, 
   3.5450017407743177`*^9}, 3.5454967823371677`*^9, {3.5469088649575768`*^9, 
   3.5469088844976034`*^9}, {3.5626391071443305`*^9, 
   3.5626391073743305`*^9}, {3.5643589759662647`*^9, 3.564358975981865*^9}, {
   3.5643596152445855`*^9, 3.5643596152445855`*^9}, {3.5644214302408457`*^9, 
   3.5644214356308537`*^9}, {3.564421710141238*^9, 3.5644217104412384`*^9}, {
   3.5644251816485977`*^9, 3.564425182588599*^9}, {3.56442556150913*^9, 
   3.5644255711591434`*^9}, {3.5647639716218944`*^9, 3.564763980919511*^9}, {
   3.564764472039573*^9, 3.5647644722423735`*^9}, {3.564987063370515*^9, 
   3.564987092450556*^9}, 3.5649871297706084`*^9, {3.564987882381662*^9, 
   3.5649879069116964`*^9}, {3.5650320576612206`*^9, 3.565032065251231*^9}, {
   3.565071292952086*^9, 3.565071292952086*^9}, {3.5651356332097273`*^9, 
   3.5651356349597297`*^9}, {3.5652167042621994`*^9, 3.565216706042202*^9}, {
   3.5652167516422653`*^9, 3.5652167752622986`*^9}, {3.565379823039935*^9, 
   3.56537984108996*^9}, {3.5653974389944067`*^9, 3.5653974720444527`*^9}, {
   3.5653976266446695`*^9, 3.5653976349446807`*^9}, {3.565397899355051*^9, 
   3.565397899545051*^9}, 3.5653981007053328`*^9, 3.5653983204056406`*^9, {
   3.565399768787668*^9, 3.5653997690276685`*^9}, 3.5654002043582783`*^9, {
   3.5801461040677614`*^9, 3.5801461061477647`*^9}, {3.58014652411835*^9, 
   3.5801465391883707`*^9}, {3.580164307143371*^9, 3.580164307583372*^9}, 
   3.580186133991438*^9, 3.580249630257283*^9, {3.5802496835673575`*^9, 
   3.5802496835673575`*^9}, {3.5915675690434713`*^9, 3.591567573203477*^9}, {
   3.591567745233718*^9, 3.5915677484037223`*^9}, {3.5984596334990883`*^9, 
   3.598459635479091*^9}, {3.598459908219473*^9, 3.598459910269476*^9}, 
   3.611794791051649*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, 
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.5644203877893867`*^9, 
   3.564420391649392*^9}, {3.5649879186017127`*^9, 3.5649879221917176`*^9}, {
   3.5801465643684063`*^9, 3.5801465695484133`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", "b"}], "d"]}], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "-", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977280278688383`*^9, 3.497728029538041*^9}, {3.49772809175095*^9, 
   3.497728115119791*^9}, {3.499131609892951*^9, 3.499131627812976*^9}, {
   3.515381148112835*^9, 3.515381153619645*^9}, {3.515381210107344*^9, 
   3.515381210450545*^9}, {3.562111256653615*^9, 3.5621113114721117`*^9}, {
   3.5621113945422573`*^9, 3.5621114125914893`*^9}, {3.562111619822253*^9, 
   3.5621116263742647`*^9}, {3.562111743686471*^9, 3.562111751860885*^9}, {
   3.563340740181106*^9, 3.563340740201106*^9}, {3.5633420327929153`*^9, 
   3.5633420327929153`*^9}, {3.563342311353306*^9, 3.563342311353306*^9}, {
   3.5633423548533664`*^9, 3.5633423548533664`*^9}, {3.563342390463416*^9, 
   3.563342390463416*^9}, {3.5653672812103753`*^9, 3.5653672985003996`*^9}, {
   3.565367365660494*^9, 3.565367432910588*^9}, {3.5653675722407827`*^9, 
   3.5653675722407827`*^9}, {3.591567248653023*^9, 3.5915672807330675`*^9}, {
   3.5915673531131687`*^9, 3.5915673531131687`*^9}, {3.591567456543314*^9, 
   3.591567456543314*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9, 
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4993685152127995`*^9, 3.499368525272814*^9}, {3.5003196739046497`*^9, 
   3.5003196775646553`*^9}, {3.5004320218638687`*^9, 
   3.5004320229179287`*^9}, {3.5026773276717095`*^9, 
   3.5026773598217545`*^9}, {3.5027672801246758`*^9, 
   3.5027672801246758`*^9}, {3.502768130767771*^9, 3.5027681579118185`*^9}, {
   3.5027753310736456`*^9, 3.5027753310736456`*^9}, {3.504044442451397*^9, 
   3.5040444430813975`*^9}, {3.504120551404752*^9, 3.5041205549347568`*^9}, {
   3.5042162611015806`*^9, 3.504216266921589*^9}, {3.504216455131852*^9, 
   3.5042164557318535`*^9}, {3.504313318664613*^9, 3.504313319084614*^9}, {
   3.504930682330023*^9, 3.5049306835600243`*^9}, {3.504980193107036*^9, 
   3.5049802057270536`*^9}, {3.509555627863861*^9, 3.5095556354538717`*^9}, {
   3.5101727272438607`*^9, 3.5101727272438607`*^9}, {3.510179350863942*^9, 
   3.5101793514879427`*^9}, {3.5117212541649623`*^9, 
   3.5117212541649623`*^9}, {3.5121869264176884`*^9, 
   3.5121869264176884`*^9}, {3.5152069561677217`*^9, 
   3.5152069561677217`*^9}, {3.515207010393417*^9, 3.5152070207206345`*^9}, {
   3.5460176008797607`*^9, 3.5460176008797607`*^9}, {3.546019083471836*^9, 
   3.546019083471836*^9}, {3.546019115261881*^9, 3.546019115261881*^9}, {
   3.5460406702408085`*^9, 3.5460406707708097`*^9}, {3.546792489882824*^9, 
   3.546792513363167*^9}, {3.546800753351956*^9, 3.5468007541219573`*^9}, {
   3.546800873799326*^9, 3.546800873799326*^9}, {3.5481750499001026`*^9, 
   3.548175050960904*^9}, {3.5649422437156367`*^9, 3.5649422437156367`*^9}, {
   3.5649870421104856`*^9, 3.5649870421104856`*^9}, {3.5649871536206417`*^9, 
   3.5649871536206417`*^9}, {3.564987914601707*^9, 3.564987914601707*^9}, {
   3.565071298004375*^9, 3.565071298004375*^9}, {3.5653840268576293`*^9, 
   3.565384039777647*^9}, {3.565397519144519*^9, 3.565397519144519*^9}, {
   3.5653976441146936`*^9, 3.5653976441146936`*^9}, {3.580146579158427*^9, 
   3.580146579158427*^9}, {3.580249688637365*^9, 3.580249688637365*^9}, {
   3.5915675763534813`*^9, 3.591567576583482*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", "b"}], "d"]}]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", " ", "a"}], "-", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979870210135884`*^9, 
   3.497987022604791*^9}, {3.498761170922196*^9, 3.498761170922196*^9}, {
   3.4987623460938416`*^9, 3.498762351773849*^9}, {3.498771763207025*^9, 
   3.498771766317029*^9}, {3.499176679905081*^9, 3.4991767019167194`*^9}, {
   3.4991769134450912`*^9, 3.4991769208239045`*^9}, {3.499177089507001*^9, 
   3.4991770988514175`*^9}, {3.4991771440134964`*^9, 3.49917724823728*^9}, {
   3.49917733957544*^9, 3.499177343725047*^9}, {3.499177507728135*^9, 
   3.4991775227821617`*^9}, {3.4991958536064606`*^9, 
   3.4991958550572634`*^9}, {3.4991964253402653`*^9, 3.499196426213866*^9}, {
   3.499220611573718*^9, 3.499220621053732*^9}, {3.499220791953971*^9, 
   3.4992208047139883`*^9}, {3.499220842934042*^9, 3.499220858054063*^9}, {
   3.49922124888461*^9, 3.4992212502446127`*^9}, {3.506011634305239*^9, 
   3.506011658545273*^9}, {3.506016286753561*^9, 3.506016298583578*^9}, {
   3.506017364036765*^9, 3.506017388996809*^9}, {3.507168650069973*^9, 
   3.507168654459979*^9}, {3.5107903473316607`*^9, 3.5107903569216743`*^9}, 
   3.510791815495717*^9, {3.510791877225804*^9, 3.5107918796458073`*^9}, {
   3.5107919206958647`*^9, 3.5107919361058865`*^9}, {3.5107929340912857`*^9, 
   3.51079296574133*^9}, {3.510793049051447*^9, 3.510793057921459*^9}, {
   3.510793103201523*^9, 3.5107931037715235`*^9}, {3.510793310961814*^9, 
   3.510793315101819*^9}, 3.5108624550198126`*^9, 3.5108626131100345`*^9, {
   3.510862732070201*^9, 3.5108627625502434`*^9}, {3.510862855050373*^9, 
   3.510862862860384*^9}, {3.510863006510585*^9, 3.5108630253906116`*^9}, {
   3.5108654917540646`*^9, 3.510865494574068*^9}, {3.510865542214135*^9, 
   3.510865562964164*^9}, {3.510866059424859*^9, 3.5108660839748936`*^9}, {
   3.5108672905565825`*^9, 3.510867342806656*^9}, {3.510867537366928*^9, 
   3.51086753861693*^9}, {3.5108677323472013`*^9, 3.5108678210373254`*^9}, 
   3.5108827919789534`*^9, {3.5108834101002717`*^9, 3.5108834689123745`*^9}, {
   3.510883571264155*^9, 3.5108835715449553`*^9}, {3.5108836880459595`*^9, 
   3.510883710182399*^9}, {3.510883778604119*^9, 3.5108838678674755`*^9}, {
   3.5108845596722918`*^9, 3.510884601277564*^9}, {3.5142247663462954`*^9, 
   3.5142248021639585`*^9}, {3.514253761668475*^9, 3.514253785538509*^9}, {
   3.514253853498604*^9, 3.514253870598628*^9}, {3.5142539471187353`*^9, 
   3.5142540442288713`*^9}, {3.514256942172928*^9, 3.5142569660829616`*^9}, {
   3.5143958129420247`*^9, 3.514395822802038*^9}, {3.5143963480027733`*^9, 
   3.514396363392795*^9}, 3.514396471892947*^9, {3.5143965757730923`*^9, 
   3.5143965997731256`*^9}, {3.5143966406231833`*^9, 3.514396655623204*^9}, 
   3.5144003680906715`*^9, {3.515168129674388*^9, 3.5151681310343895`*^9}, {
   3.515181125380422*^9, 3.5151811284848275`*^9}, {3.5448166251296034`*^9, 
   3.5448166802757006`*^9}, {3.5448249626942472`*^9, 
   3.5448250048923216`*^9}, {3.544843090806348*^9, 3.544843140274035*^9}, {
   3.5448432838722873`*^9, 3.5448432871326933`*^9}, {3.5450007351889515`*^9, 
   3.5450007762014236`*^9}, {3.5450013122883654`*^9, 
   3.5450013479344277`*^9}, {3.5469088944476175`*^9, 
   3.5469089037976303`*^9}, {3.564358975981865*^9, 3.564358976013065*^9}, {
   3.5644214769909115`*^9, 3.564421551541016*^9}, {3.564425585439163*^9, 
   3.5644255996791835`*^9}, {3.564764000544345*^9, 3.5647640142099695`*^9}, 
   3.5649871716106668`*^9, 3.564987526631164*^9, {3.5649875650312176`*^9, 
   3.564987581471241*^9}, {3.5649883358822966`*^9, 3.5649883838823643`*^9}, {
   3.565032292111549*^9, 3.565032296391555*^9}, {3.5653852038772774`*^9, 
   3.56538525587735*^9}, {3.565385698007969*^9, 3.5653857039279776`*^9}, {
   3.5653975254045277`*^9, 3.5653975731245947`*^9}, {3.580146592298445*^9, 
   3.580146624908491*^9}, 3.580249633157287*^9, {3.58024987820763*^9, 
   3.580249917437685*^9}, {3.591567483793352*^9, 3.591567510123389*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4991772959421635`*^9, 3.4991773069401827`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"a_", "+", 
      RowBox[{"b_.", "*", 
       RowBox[{"tan", "[", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*", 
    RowBox[{"b", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "*", "a"}], "-", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x", 
      ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.4979870291256027`*^9, 
   3.4979870422296257`*^9}, {3.497987678082342*^9, 3.497987689735563*^9}, {
   3.4979879183851643`*^9, 3.4979879218639708`*^9}, 3.497988073511837*^9, 
   3.4984970174250083`*^9, {3.4987611709321957`*^9, 3.4987611709321957`*^9}, {
   3.498762437503969*^9, 3.498762476604024*^9}, {3.498762534054104*^9, 
   3.4987625544741325`*^9}, {3.4987718156570983`*^9, 3.498771821157106*^9}, 
   3.499176757172016*^9, 3.499177473610875*^9, {3.499177533998582*^9, 
   3.4991775542474174`*^9}, {3.499185447236084*^9, 3.4991854476572847`*^9}, {
   3.4991867525007772`*^9, 3.4991867535459795`*^9}, {3.499221289154667*^9, 
   3.4992213232347145`*^9}, 3.5060117270153685`*^9, {3.506011884195589*^9, 
   3.506011911555627*^9}, {3.506016315403601*^9, 3.506016334533628*^9}, {
   3.5060164328137655`*^9, 3.5060164512337914`*^9}, {3.506017490787389*^9, 
   3.506017520833041*^9}, {3.507169195320736*^9, 3.507169237320795*^9}, {
   3.5107903649416857`*^9, 3.510790414641755*^9}, {3.5107914373131866`*^9, 
   3.510791440833192*^9}, {3.5107918503857665`*^9, 3.5107918531657705`*^9}, {
   3.510792015105997*^9, 3.510792064656066*^9}, {3.5107921207661448`*^9, 
   3.5107921449961786`*^9}, {3.5107922428463154`*^9, 
   3.5107922587363377`*^9}, {3.510792532578723*^9, 3.51079253780873*^9}, {
   3.510792628798857*^9, 3.510792635248866*^9}, {3.5107929359612885`*^9, 
   3.5107929415412965`*^9}, {3.5107929894213634`*^9, 3.510793020761407*^9}, {
   3.5107933579518795`*^9, 3.510793360861883*^9}, {3.5107934219719687`*^9, 
   3.510793434731987*^9}, {3.5107934832620544`*^9, 3.510793511982095*^9}, {
   3.510799189346859*^9, 3.5107992041968803`*^9}, {3.510799776677682*^9, 
   3.510799780597687*^9}, 3.510863075290681*^9, {3.5108631067007256`*^9, 
   3.510863112650734*^9}, 3.5108634203511643`*^9, {3.510863486311257*^9, 
   3.510863486521257*^9}, {3.510865446524001*^9, 3.5108654554340134`*^9}, 
   3.5108661348649645`*^9, {3.5108661791050267`*^9, 3.5108661865550375`*^9}, {
   3.510866302065199*^9, 3.5108663079952073`*^9}, {3.510867921877466*^9, 
   3.510867937547488*^9}, {3.510867973887539*^9, 3.510868046637641*^9}, 
   3.5108680905877028`*^9, {3.510868148657784*^9, 3.510868177777825*^9}, {
   3.510882816248987*^9, 3.510882824228998*^9}, {3.5108840906514673`*^9, 
   3.5108841599155884`*^9}, {3.5108845736187162`*^9, 
   3.5108846146467876`*^9}, {3.510888427388686*^9, 3.5108884743291683`*^9}, {
   3.5108886381918564`*^9, 3.5108886485658746`*^9}, {3.510888678720728*^9, 
   3.5108886796255293`*^9}, {3.510888720684801*^9, 3.5108887275800133`*^9}, {
   3.5108888796802807`*^9, 3.510888881021883*^9}, {3.5120885974018*^9, 
   3.5120886011318054`*^9}, {3.5120894445570097`*^9, 3.512089448317015*^9}, {
   3.513109116247131*^9, 3.513109181236845*^9}, {3.5131109783852024`*^9, 
   3.5131109820668087`*^9}, {3.513111738496537*^9, 3.5131117413357425`*^9}, 
   3.513112310803943*^9, 3.513116549990039*^9, 3.513116631840153*^9, {
   3.513116674560213*^9, 3.5131166806702213`*^9}, {3.513116760960334*^9, 
   3.5131167691403456`*^9}, 3.513122838946004*^9, {3.5131355540184326`*^9, 
   3.513135558760841*^9}, {3.5131356301777663`*^9, 3.513135650832203*^9}, 
   3.5131372241913633`*^9, {3.513139910664424*^9, 3.513139925016449*^9}, {
   3.5131399628933153`*^9, 3.5131399657793207`*^9}, {3.513622089406437*^9, 
   3.5136221199356904`*^9}, 3.5142223995725384`*^9, {3.5142249275881786`*^9, 
   3.5142249458246107`*^9}, 3.514225230603111*^9, {3.5142290392362003`*^9, 
   3.5142290573946323`*^9}, 3.5142538004285297`*^9, {3.5142542521991625`*^9, 
   3.5142542532391634`*^9}, {3.514254291249217*^9, 3.5142544290794096`*^9}, {
   3.5142583832749453`*^9, 3.5142584292150097`*^9}, {3.5143958450020695`*^9, 
   3.5143958674421005`*^9}, {3.5143960423023453`*^9, 3.514396074522391*^9}, {
   3.514396122022457*^9, 3.5143961313624706`*^9}, {3.5143961632325153`*^9, 
   3.5143961760225325`*^9}, {3.5143967449833293`*^9, 3.514396779623378*^9}, {
   3.514396986183667*^9, 3.5143970626537743`*^9}, {3.5143979759968514`*^9, 
   3.5143979981801205`*^9}, 3.5143987761166153`*^9, {3.5143990236597743`*^9, 
   3.514399032938305*^9}, 3.5143990733486166`*^9, 3.51440091844615*^9, 
   3.5144013824526896`*^9, {3.51458952436273*^9, 3.5145895478527627`*^9}, {
   3.5159781843141985`*^9, 3.5159781857806015`*^9}, 3.516821030696986*^9, {
   3.5448169854434366`*^9, 3.5448170351451235`*^9}, {3.54481720966263*^9, 
   3.5448172147638392`*^9}, {3.5448172830763593`*^9, 
   3.5448173600624943`*^9}, {3.5448175301027927`*^9, 
   3.5448175433940163`*^9}, {3.5448250181367445`*^9, 3.5448250354371753`*^9}, 
   3.544825076886448*^9, {3.5448259031886992`*^9, 3.5448259216903315`*^9}, 
   3.544826103586651*^9, {3.544843238086207*^9, 3.544843273560669*^9}, {
   3.5448433179583473`*^9, 3.544843325976761*^9}, {3.5449368007252474`*^9, 
   3.5449368139852657`*^9}, {3.545000907732855*^9, 3.545000908325656*^9}, 
   3.5450009587605443`*^9, {3.5450014176509504`*^9, 3.545001444982198*^9}, {
   3.5469089165976486`*^9, 3.5469089278076644`*^9}, {3.546908966747719*^9, 
   3.5469089791377363`*^9}, {3.5643589760286646`*^9, 3.564358976044265*^9}, {
   3.5643590345599675`*^9, 3.5643590345755672`*^9}, 3.564359638972227*^9, 
   3.564421606631093*^9, {3.5644256855193033`*^9, 3.5644257021193266`*^9}, {
   3.564425758759406*^9, 3.564425766649417*^9}, {3.564425839739519*^9, 
   3.5644258417195225`*^9}, {3.564764036206008*^9, 3.564764063646456*^9}, {
   3.5647644574379473`*^9, 3.5647644687479677`*^9}, {3.5647661927767324`*^9, 
   3.564766195056736*^9}, {3.564766787927566*^9, 3.5647667986975813`*^9}, {
   3.56476808952689*^9, 3.564768094336897*^9}, {3.564987156600646*^9, 
   3.5649871591306496`*^9}, {3.564987640471323*^9, 3.5649877521014795`*^9}, {
   3.5649884149224076`*^9, 3.5649884164324093`*^9}, 3.5649884773724947`*^9, {
   3.565032317631584*^9, 3.565032358621642*^9}, 3.5650713059748306`*^9, 
   3.565385899338251*^9, {3.5653859887383757`*^9, 3.5653860159684143`*^9}, {
   3.565397603934637*^9, 3.5653976155546536`*^9}, 3.5653976768947396`*^9, 
   3.5653977598348556`*^9, {3.5653999920879807`*^9, 3.5654000154880133`*^9}, 
   3.580146659298539*^9, {3.5801467361086464`*^9, 3.580146745148659*^9}, {
   3.5801477102900105`*^9, 3.5801477190300226`*^9}, {3.5802497198174086`*^9, 
   3.5802497850474997`*^9}, 3.580249991637789*^9, 3.591567579553486*^9, 
   3.591567628113554*^9, {3.59156775350373*^9, 3.5915677568437343`*^9}, {
   3.598459645109105*^9, 3.5984596507091126`*^9}, 3.706139267224996*^9, 
   3.715378571640402*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.56210873682839*^9, 3.5621087411807976`*^9}, {3.5621089787292147`*^9, 
   3.5621089802424173`*^9}, 3.5621096267543535`*^9, 3.5621096604972124`*^9, {
   3.562111849205056*^9, 3.562111857753871*^9}, 3.5633407401711063`*^9, {
   3.563342325533325*^9, 3.563342325533325*^9}, {3.56536724139032*^9, 
   3.5653672575603423`*^9}, 3.565368632962268*^9, {3.565369142462981*^9, 
   3.5653691665530148`*^9}, {3.5984597507892528`*^9, 
   3.5984597507892528`*^9}, {3.5984599428795214`*^9, 3.5984599438095226`*^9}, 
   3.611794792387725*^9, {3.674672005365552*^9, 3.674672006305606*^9}, {
   3.674672196397478*^9, 3.674672196397478*^9}, {3.6746726020556803`*^9, 
   3.674672602275693*^9}, {3.6746765818513117`*^9, 3.674676583169387*^9}, {
   3.674680762787448*^9, 3.674680762956457*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.497727769376384*^9}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["b", "d"]}], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", "x"}], ")"}], 
        RowBox[{"n", "-", "1"}]], 
       RowBox[{"a", "-", "x"}]], ",", "x", ",", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977280278688383`*^9, 3.497728029538041*^9}, {3.49772809175095*^9, 
   3.497728115119791*^9}, {3.499131609892951*^9, 3.499131627812976*^9}, {
   3.515381148112835*^9, 3.515381153619645*^9}, {3.515381210107344*^9, 
   3.515381210450545*^9}, {3.562111256653615*^9, 3.5621113114721117`*^9}, {
   3.5621113945422573`*^9, 3.5621114125914893`*^9}, {3.562111619822253*^9, 
   3.5621116263742647`*^9}, {3.562111743686471*^9, 3.562111751860885*^9}, {
   3.563340740181106*^9, 3.563340740201106*^9}, {3.5633420327929153`*^9, 
   3.5633420327929153`*^9}, {3.563342311353306*^9, 3.563342311353306*^9}, {
   3.5633423548533664`*^9, 3.5633423548533664`*^9}, {3.563342390463416*^9, 
   3.563342390463416*^9}, {3.5653672812103753`*^9, 3.5653672985003996`*^9}, {
   3.565367365660494*^9, 3.565367432910588*^9}, {3.5653675722407827`*^9, 
   3.5653675722407827`*^9}, {3.610742940609949*^9, 3.610742940609949*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.562111787725348*^9, 
   3.5621117912509546`*^9}, {3.563342386653411*^9, 3.563342386653411*^9}, {
   3.565367268030357*^9, 3.565367268030357*^9}, {3.565369174653026*^9, 
   3.565369174653026*^9}, {3.598459753919257*^9, 3.598459753919257*^9}, {
   3.6746722020588017`*^9, 3.6746722020588017`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox["b", "d"]}]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", "x"}], ")"}], 
         RowBox[{"n", "-", "1"}]], 
        RowBox[{"a", "-", "x"}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4977277558667603`*^9, 3.4977279564051123`*^9, {3.499131609902951*^9, 
   3.499131627822976*^9}, {3.515381218687359*^9, 3.51538121910856*^9}, {
   3.562111813231393*^9, 3.56211183436943*^9}, {3.5633407402111063`*^9, 
   3.563340740221106*^9}, 3.563342419283457*^9, 3.5653672906703887`*^9, {
   3.565367588860806*^9, 3.565367614970843*^9}, {3.580235623620165*^9, 
   3.5802356503902025`*^9}, 3.6107486286352863`*^9, 3.674672283830479*^9, 
   3.674672323237733*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "x"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "-", "x"}], ")"}]}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"b", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, {
   3.498076659212607*^9, 3.4980766634826126`*^9}, {3.4980966277916193`*^9, 
   3.498096630541623*^9}, 3.515451008660945*^9, {3.515451181591187*^9, 
   3.5154512280912523`*^9}, 3.515451695751907*^9, {3.5621119054743547`*^9, 
   3.562111927610794*^9}, {3.563340740231106*^9, 3.563340740241106*^9}, {
   3.563342430343472*^9, 3.563342440203486*^9}, 3.563402213995453*^9, 
   3.5653676784909315`*^9, 3.5653677377210145`*^9, {3.5653678042511077`*^9, 
   3.5653678089011145`*^9}, {3.56536917736303*^9, 3.565369178873032*^9}, 
   3.5802357128102903`*^9, {3.59845975633926*^9, 3.598459757259262*^9}, 
   3.6746720109978743`*^9, 3.6746723038726254`*^9, 3.706139267244996*^9, 
   3.7153785716454024`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
   3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
   3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9, 
   3.5621084519718895`*^9}, {3.5621095850086803`*^9, 3.562109598284303*^9}, 
   3.5633407401411057`*^9, {3.565368261571748*^9, 3.565368272971764*^9}, {
   3.5653683065518107`*^9, 3.565368306861811*^9}, {3.5653699874041643`*^9, 
   3.5653699876341643`*^9}, 3.6117947928217497`*^9, {3.623966718280793*^9, 
   3.623966718430794*^9}, {3.6276816126504564`*^9, 3.627681612883457*^9}, {
   3.627682830197822*^9, 3.6276828305178223`*^9}, {3.627683679563549*^9, 
   3.6276836811845517`*^9}, {3.627684686730115*^9, 3.627684686996316*^9}, {
   3.664829947546462*^9, 3.66482994803749*^9}, {3.6749419955577755`*^9, 
   3.674941995797789*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.562108806388912*^9, 3.562108809727318*^9}, {3.5621098465431395`*^9, 
   3.562109866729575*^9}, {3.5621826277574315`*^9, 3.5621826431574535`*^9}, 
   3.5633407406111064`*^9, {3.563343487184952*^9, 3.563343487184952*^9}, 
   3.5641935910727634`*^9, 3.5641936439428377`*^9, {3.565369999484181*^9, 
   3.565370017604206*^9}, {3.5984601210597715`*^9, 3.5984601229697733`*^9}, 
   3.611794793293777*^9, {3.627683432167093*^9, 3.6276834336670947`*^9}, {
   3.627683710632602*^9, 3.627683711904604*^9}, {3.6277670521179934`*^9, 
   3.6277670536311965`*^9}, {3.6648295043261113`*^9, 3.66482950745329*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.1, CRC 423, A&S 4.3.129", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9}],

Cell["Reference: G&R 2.510.4, CRC 427, A&S 4.3.130", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.498074566539677*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.4982482263699856`*^9, 3.4982482282399883`*^9}, {3.4982490094710817`*^9, 
   3.4982490138910885`*^9}, {3.4982496411619663`*^9, 3.49824964382197*^9}, {
   3.5607248508665514`*^9, 3.5607248508665514`*^9}, {3.5621098706919813`*^9, 
   3.5621098706919813`*^9}, {3.5621826450274553`*^9, 
   3.5621826450274553`*^9}, {3.5633434885549536`*^9, 
   3.5633434885549536`*^9}, {3.5653700211642113`*^9, 3.5653700211642113`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["b", "2"], "+", 
      RowBox[{"2", " ", "a", " ", "b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
     RowBox[{"n", "-", "2"}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, {
   3.498071646517518*^9, 3.4980716657211514`*^9}, 3.4980823759499397`*^9, {
   3.498248059589752*^9, 3.4982480989598074`*^9}, {3.4982481314798527`*^9, 
   3.4982481328098545`*^9}, {3.498279997886505*^9, 3.4982800189309425`*^9}, {
   3.4982800818146524`*^9, 3.498280090301068*^9}, {3.5607243775558887`*^9, 
   3.560724381525894*^9}, {3.560724644846263*^9, 3.560724645606264*^9}, {
   3.5607258066378894`*^9, 3.5607258107078953`*^9}, {3.563340740621106*^9, 
   3.563340740651107*^9}, {3.5633438772254977`*^9, 3.563343880975503*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], "-", 
         RowBox[{"b", "^", "2"}], "+", 
         RowBox[{"2", "*", "a", "*", "b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, {
   3.4980716301530895`*^9, 3.4980716358002987`*^9}, {3.4980766822826395`*^9, 
   3.498076685822644*^9}, {3.4980768335128508`*^9, 3.498076848172871*^9}, {
   3.4980824096599865`*^9, 3.4980824722700744`*^9}, {3.498106426425337*^9, 
   3.498106427765339*^9}, {3.498107482956816*^9, 3.4981074981868377`*^9}, 
   3.4981076002169805`*^9, {3.498248209339962*^9, 3.498248212939967*^9}, {
   3.4982482597700324`*^9, 3.4982482605100336`*^9}, {3.498249005121076*^9, 
   3.498249006041077*^9}, {3.498249646041973*^9, 3.4982496469119744`*^9}, {
   3.4982694886094933`*^9, 3.4982694901382957`*^9}, {3.560724645856264*^9, 
   3.5607246475862665`*^9}, 3.5607249542566957`*^9, {3.560725843367941*^9, 
   3.5607258504179506`*^9}, {3.562109127381876*^9, 3.562109129051079*^9}, {
   3.5621098734999866`*^9, 3.56210987541879*^9}, {3.5633407406611066`*^9, 
   3.563340740691107*^9}, 3.5633437229152813`*^9, {3.5633438906155167`*^9, 
   3.5633438942855215`*^9}, 3.5634022141954536`*^9, {3.565370025114217*^9, 
   3.5653700272342196`*^9}, 3.6276828992019424`*^9, 3.664829600670622*^9, 
   3.7061392834850187`*^9, 3.7153785218455544`*^9, 3.7153786064763947`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.5621088155929284`*^9, 3.5621088189937344`*^9}, {3.5621101953597517`*^9, 
   3.5621101981989565`*^9}, {3.5621102753878927`*^9, 3.562110281128702*^9}, 
   3.563340741201107*^9, {3.5633435063449783`*^9, 3.5633435063449783`*^9}, {
   3.565370121984352*^9, 3.565370125284357*^9}, {3.5653702327845078`*^9, 
   3.5653702329445076`*^9}, {3.576100079494742*^9, 3.5761000797147427`*^9}, 
   3.598460124549776*^9, 3.598460159389825*^9, 3.6117947946488543`*^9, {
   3.6277671222089167`*^9, 3.627767143690154*^9}, 3.6648295137906523`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.4, CRC 427'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.4980706229285192`*^9}],

Cell["Reference: G&R 2.510.1, CRC 423'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9, 
   3.4980705234471445`*^9, 3.4980706229285192`*^9, 3.4980746553198013`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071686453588*^9, 3.4980716921787977`*^9}, {3.498082487030095*^9, 
   3.4980824984901114`*^9}, 3.498082550690184*^9, {3.498106439015355*^9, 
   3.4981064411153574`*^9}, {3.498107093356271*^9, 3.498107100486281*^9}, {
   3.5607248531065545`*^9, 3.5607248531065545`*^9}, {3.5621102848883095`*^9, 
   3.5621102848883095`*^9}, {3.563343507874981*^9, 3.563343507874981*^9}, {
   3.565370131684366*^9, 3.565370131684366*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, {
   3.498071646517518*^9, 3.4980716657211514`*^9}, 3.4980823759499397`*^9, {
   3.4982800567766085`*^9, 3.498280076869444*^9}, {3.560724388555904*^9, 
   3.5607243909859076`*^9}, {3.5607246494262695`*^9, 
   3.5607246511462717`*^9}, {3.5607248541365557`*^9, 3.5607248555065575`*^9}, 
   3.560724890506607*^9, {3.5607249769367275`*^9, 3.5607249818267345`*^9}, {
   3.5633407412111073`*^9, 3.5633407412411075`*^9}, {3.5633435085949817`*^9, 
   3.5633435092749825`*^9}, 3.563344613596529*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "+", 
        RowBox[{"b", "^", "2"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, {
   3.4980716301530895`*^9, 3.4980716358002987`*^9}, {3.4980766822826395`*^9, 
   3.498076685822644*^9}, {3.4980768335128508`*^9, 3.498076848172871*^9}, {
   3.4980824096599865`*^9, 3.4980824722700744`*^9}, {3.498106426425337*^9, 
   3.498106427765339*^9}, {3.498107482956816*^9, 3.4981074981868377`*^9}, 
   3.4981076002169805`*^9, {3.5607246516762724`*^9, 3.5607246530562744`*^9}, {
   3.5607249303366623`*^9, 3.5607249569467*^9}, {3.560724989696746*^9, 
   3.5607249918167486`*^9}, 3.560725112846918*^9, {3.560725244977103*^9, 
   3.560725247007106*^9}, {3.5621102883203154`*^9, 3.562110290613519*^9}, {
   3.563340741251107*^9, 3.563340741281108*^9}, {3.5633437370153017`*^9, 
   3.563343738245303*^9}, 3.563344652456583*^9, 3.5634022144254537`*^9, {
   3.5653701343343697`*^9, 3.5653701358843718`*^9}, {3.5799735706730776`*^9, 
   3.579973573523082*^9}, 3.627683053709223*^9, 3.6648296066329627`*^9, 
   3.706139283505019*^9, 3.715378538442503*^9, 3.7153786064923954`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.5621087774976616`*^9, 3.5621087815848684`*^9}, {3.5621099757581663`*^9, 
   3.562109977505369*^9}, 3.563340740841107*^9, {3.563343495224963*^9, 
   3.563343495224963*^9}, {3.565370230194504*^9, 3.5653702303845043`*^9}, 
   3.611794794199829*^9, {3.627683175503436*^9, 3.6276831800134454`*^9}, 
   3.6277673948505955`*^9, {3.6283902008061256`*^9, 3.628390202225728*^9}, {
   3.6648295177458787`*^9, 3.6648295182379065`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.5651972448986845`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "z"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["a", 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"]}]], "+", 
    FractionBox[
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"b", "-", 
        RowBox[{"a", " ", "z"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, {3.498075132450469*^9, 3.4980751696205215`*^9}, {
   3.5156247271626544`*^9, 3.5156247271626544`*^9}, {3.515624776478475*^9, 
   3.5156248010308795`*^9}, {3.5607245046060667`*^9, 
   3.5607245055560675`*^9}, {3.5633407408511066`*^9, 3.563340740881107*^9}, {
   3.5633434959149637`*^9, 3.5633434989549685`*^9}, {3.5633441349558587`*^9, 
   3.5633441349558587`*^9}, {3.5633441684159055`*^9, 3.563344199625949*^9}, {
   3.56334431432611*^9, 3.56334431432611*^9}, {3.565197241622679*^9, 
   3.565197241622679*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498071345530589*^9, 
   3.4980713485569944`*^9}, {3.4980714878184395`*^9, 3.498071509518077*^9}, {
   3.498071549142147*^9, 3.498071550234149*^9}, {3.498072028640189*^9, 
   3.4980720307929926`*^9}, {3.5156248238671856`*^9, 
   3.5156248238671856`*^9}, {3.5633435000949697`*^9, 3.5633435000949697`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"a", " ", "x"}], 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["b", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"b", "-", 
       RowBox[{"a", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.4980715799210005`*^9, 3.498071607267849*^9}, 
   3.498072121460352*^9, {3.5156247316689124`*^9, 3.515624745465701*^9}, {
   3.5633407408911066`*^9, 3.563340740911107*^9}, {3.563343501144971*^9, 
   3.5633435019449725`*^9}, 3.5633441920759387`*^9, {3.5651972634783173`*^9, 
   3.5651973211672187`*^9}, 3.5651994200573053`*^9, 3.5651994805230117`*^9, {
   3.565199842116047*^9, 3.5651998488864584`*^9}, {3.5651999064973598`*^9, 
   3.565199946807831*^9}, {3.5652001679538193`*^9, 3.565200182274644*^9}, 
   3.5915681575942955`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{"x", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "+", 
        RowBox[{"b", "^", "2"}]}], ")"}]}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "+", 
        RowBox[{"b", "^", "2"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", 
          RowBox[{"a", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, 3.498070751347945*^9, 3.498071523433302*^9, 
   3.4980719583152657`*^9, 3.515624671628478*^9, {3.5607881355330873`*^9, 
   3.5607881455951047`*^9}, {3.5633407409211073`*^9, 3.563340740941107*^9}, {
   3.5633437284752893`*^9, 3.5633437311552935`*^9}, 3.5633443272261276`*^9, 
   3.563402214285454*^9, 3.5651974870891104`*^9, 3.5652002834096217`*^9, {
   3.5915682436344156`*^9, 3.591568259504438*^9}, {3.6276831022603073`*^9, 
   3.627683121438342*^9}, 3.7061392835250187`*^9, 3.715378606500396*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, {3.5621085815145173`*^9, 3.562108588222529*^9}, {
   3.56210873682839*^9, 3.5621087411807976`*^9}, {3.5621089787292147`*^9, 
   3.5621089802424173`*^9}, 3.5621096267543535`*^9, 3.5621096604972124`*^9, {
   3.562111849205056*^9, 3.562111857753871*^9}, 3.5633407401711063`*^9, {
   3.563342325533325*^9, 3.563342325533325*^9}, {3.56536724139032*^9, 
   3.5653672575603423`*^9}, 3.565368632962268*^9, {3.565369142462981*^9, 
   3.5653691665530148`*^9}, {3.5984597507892528`*^9, 
   3.5984597507892528`*^9}, {3.5984599428795214`*^9, 3.5984599438095226`*^9}, 
   3.611794792387725*^9, {3.674672005365552*^9, 3.674672006305606*^9}, {
   3.674672196397478*^9, 3.674672196397478*^9}, {3.67467236252498*^9, 
   3.67467236252498*^9}, {3.6746726034877625`*^9, 3.6746726036607723`*^9}, {
   3.67467663130014*^9, 3.6746766551255026`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.497727769376384*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"b", " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["b", "d"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"F", "[", "x", "]"}], 
       RowBox[{
        SuperscriptBox["b", "2"], "+", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977280278688383`*^9, 3.497728029538041*^9}, {3.49772809175095*^9, 
   3.497728115119791*^9}, {3.499131609892951*^9, 3.499131627812976*^9}, {
   3.515381148112835*^9, 3.515381153619645*^9}, {3.515381210107344*^9, 
   3.515381210450545*^9}, {3.562111256653615*^9, 3.5621113114721117`*^9}, {
   3.5621113945422573`*^9, 3.5621114125914893`*^9}, {3.562111619822253*^9, 
   3.5621116263742647`*^9}, {3.562111743686471*^9, 3.562111751860885*^9}, {
   3.563340740181106*^9, 3.563340740201106*^9}, {3.5633420327929153`*^9, 
   3.5633420327929153`*^9}, {3.563342311353306*^9, 3.563342311353306*^9}, {
   3.5633423548533664`*^9, 3.5633423548533664`*^9}, {3.563342390463416*^9, 
   3.563342390463416*^9}, {3.5653672812103753`*^9, 3.5653672985003996`*^9}, {
   3.565367365660494*^9, 3.565367432910588*^9}, {3.5653675722407827`*^9, 
   3.5653675722407827`*^9}, {3.610742940609949*^9, 3.610742940609949*^9}, {
   3.6746723679192886`*^9, 3.6746723714094887`*^9}, {3.6746724543862343`*^9, 
   3.6746724543862343`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.562111787725348*^9, 
   3.5621117912509546`*^9}, {3.563342386653411*^9, 3.563342386653411*^9}, {
   3.565367268030357*^9, 3.565367268030357*^9}, {3.565369174653026*^9, 
   3.565369174653026*^9}, {3.598459753919257*^9, 3.598459753919257*^9}, {
   3.6746722020588017`*^9, 3.6746722020588017`*^9}, {3.674672365053125*^9, 
   3.674672365053125*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["b", "d"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", "x"}], ")"}], "n"], 
        RowBox[{
         SuperscriptBox["b", "2"], "+", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4977277558667603`*^9, 3.4977279564051123`*^9, {3.499131609902951*^9, 
   3.499131627822976*^9}, {3.515381218687359*^9, 3.51538121910856*^9}, {
   3.562111813231393*^9, 3.56211183436943*^9}, {3.5633407402111063`*^9, 
   3.563340740221106*^9}, 3.563342419283457*^9, 3.5653672906703887`*^9, {
   3.565367588860806*^9, 3.565367614970843*^9}, {3.580235623620165*^9, 
   3.5802356503902025`*^9}, 3.6107486286352863`*^9, 3.674672283830479*^9, 
   3.674672323237733*^9, {3.6746724813877788`*^9, 3.6746724966516514`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "x"}], ")"}], "^", "n"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "^", "2"}], "+", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], ",", "x"}], "]"}], ",", "x", 
      ",", 
      RowBox[{"b", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, {
   3.498076659212607*^9, 3.4980766634826126`*^9}, {3.4980966277916193`*^9, 
   3.498096630541623*^9}, 3.515451008660945*^9, {3.515451181591187*^9, 
   3.5154512280912523`*^9}, 3.515451695751907*^9, {3.5621119054743547`*^9, 
   3.562111927610794*^9}, {3.563340740231106*^9, 3.563340740241106*^9}, {
   3.563342430343472*^9, 3.563342440203486*^9}, 3.563402213995453*^9, 
   3.5653676784909315`*^9, 3.5653677377210145`*^9, {3.5653678042511077`*^9, 
   3.5653678089011145`*^9}, {3.56536917736303*^9, 3.565369178873032*^9}, 
   3.5802357128102903`*^9, {3.59845975633926*^9, 3.598459757259262*^9}, 
   3.6746720109978743`*^9, 3.6746723038726254`*^9, 3.674672381251051*^9, {
   3.6746725197649736`*^9, 3.6746725313056335`*^9}, 3.706139283545019*^9, 
   3.715378606508396*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "a", "+", "b", " ", "tan", "(", "c", "+", "d", " ", 
      "x", ")", ")", "^", "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 5904, 96, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6474, 120, 3613, 58, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10112, 182, 3957, 67, 53, "Subsubtitle"],
Cell[14072, 251, 266, 4, 35, "Subsubsection"],
Cell[14341, 257, 288, 4, 25, "Subsubsection"],
Cell[14632, 263, 301, 4, 25, "Subsubsection"],
Cell[14936, 269, 1325, 34, 26, "Subsubsection"],
Cell[16264, 305, 939, 17, 26, "Subsubsection"],
Cell[17206, 324, 2677, 60, 66, "Subsubtitle"],
Cell[19886, 386, 771, 11, 35, "Subsubsection"],
Cell[20660, 399, 2542, 65, 129, "Code"],
Cell[23205, 466, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[23331, 473, 3976, 68, 53, "Subsubtitle"],
Cell[27310, 543, 278, 4, 35, "Subsubsection"],
Cell[27591, 549, 302, 4, 25, "Subsubsection"],
Cell[27896, 555, 301, 4, 25, "Subsubsection"],
Cell[28200, 561, 1427, 35, 38, "Subsubsection"],
Cell[29630, 598, 1012, 19, 26, "Subsubsection"],
Cell[30645, 619, 2717, 60, 66, "Subsubtitle"],
Cell[33365, 681, 771, 11, 35, "Subsubsection"],
Cell[34139, 694, 2615, 65, 129, "Code"],
Cell[36757, 761, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[36883, 768, 3516, 56, 53, "Subsubtitle"],
Cell[40402, 826, 308, 4, 35, "Subsubsection"],
Cell[40713, 832, 336, 5, 25, "Subsubsection"],
Cell[41052, 839, 283, 4, 25, "Subsubsection"],
Cell[41338, 845, 1134, 28, 39, "Subsubsection"],
Cell[42475, 875, 763, 11, 25, "Subsubsection"],
Cell[43241, 888, 1170, 27, 59, "Subsubtitle"],
Cell[44414, 917, 771, 11, 35, "Subsubsection"],
Cell[45188, 930, 1139, 29, 104, "Code"],
Cell[46330, 961, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[46456, 968, 3857, 61, 62, "Subsubtitle"],
Cell[50316, 1031, 4738, 79, 49, "Subsubsection"],
Cell[55057, 1112, 1151, 16, 25, "Subsubsection"],
Cell[56211, 1130, 2468, 49, 62, "Subsubtitle"],
Cell[58682, 1181, 771, 11, 35, "Subsubsection"],
Cell[59456, 1194, 1855, 40, 104, "Code"],
Cell[61314, 1236, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[61440, 1243, 5700, 91, 53, "Subsubtitle"],
Cell[67143, 1336, 441, 6, 35, "Subsubsection"],
Cell[67587, 1344, 2346, 51, 41, "Subsubsection"],
Cell[69936, 1397, 1187, 21, 26, "Subsubsection"],
Cell[71126, 1420, 3401, 64, 63, "Subsubtitle"],
Cell[74530, 1486, 819, 11, 35, "Subsubsection"],
Cell[75352, 1499, 3744, 73, 104, "Code"],
Cell[79099, 1574, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[79237, 1582, 3933, 68, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[83195, 1654, 4098, 66, 53, "Subsubtitle"],
Cell[87296, 1722, 1597, 21, 35, "Subsubsection"],
Cell[88896, 1745, 2410, 48, 26, "Subsubsection"],
Cell[91309, 1795, 1413, 19, 25, "Subsubsection"],
Cell[92725, 1816, 2622, 55, 63, "Subsubtitle"],
Cell[95350, 1873, 771, 11, 35, "Subsubsection"],
Cell[96124, 1886, 2548, 57, 104, "Code"],
Cell[98675, 1945, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[98801, 1952, 4498, 76, 53, "Subsubtitle"],
Cell[103302, 2030, 1597, 21, 35, "Subsubsection"],
Cell[104902, 2053, 1768, 25, 25, "Subsubsection"],
Cell[106673, 2080, 1596, 26, 26, "Subsubsection"],
Cell[108272, 2108, 2564, 51, 53, "Subsubtitle"],
Cell[110839, 2161, 771, 11, 35, "Subsubsection"],
Cell[111613, 2174, 2663, 56, 104, "Code"],
Cell[114279, 2232, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[114417, 2240, 3908, 69, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[118350, 2313, 4532, 78, 53, "Subsubtitle"],
Cell[122885, 2393, 1879, 31, 36, "Subsubsection"],
Cell[124767, 2426, 1635, 29, 35, "Subsubsection"],
Cell[126405, 2457, 2409, 57, 66, "Subsubtitle"],
Cell[128817, 2516, 771, 11, 35, "Subsubsection"],
Cell[129591, 2529, 2837, 72, 129, "Code"],
Cell[132431, 2603, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[132557, 2610, 4585, 79, 53, "Subsubtitle"],
Cell[137145, 2691, 1965, 32, 36, "Subsubsection"],
Cell[139113, 2725, 1735, 31, 35, "Subsubsection"],
Cell[140851, 2758, 2397, 56, 62, "Subsubtitle"],
Cell[143251, 2816, 771, 11, 35, "Subsubsection"],
Cell[144025, 2829, 2699, 70, 129, "Code"],
Cell[146727, 2901, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[146853, 2908, 6036, 99, 53, "Subsubtitle"],
Cell[152892, 3009, 441, 6, 35, "Subsubsection"],
Cell[153336, 3017, 2401, 59, 42, "Subsubsection"],
Cell[155740, 3078, 3547, 55, 26, "Subsubsection"],
Cell[159290, 3135, 5408, 93, 61, "Subsubtitle"],
Cell[164701, 3230, 821, 11, 35, "Subsubsection"],
Cell[165525, 3243, 8081, 135, 104, "Code"],
Cell[173609, 3380, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[173735, 3387, 4736, 81, 53, "Subsubtitle"],
Cell[178474, 3470, 359, 5, 35, "Subsubsection"],
Cell[178836, 3477, 2296, 56, 42, "Subsubsection"],
Cell[181135, 3535, 859, 18, 26, "Subsubsection"],
Cell[181997, 3555, 2388, 52, 63, "Subsubtitle"],
Cell[184388, 3609, 771, 11, 35, "Subsubsection"],
Cell[185162, 3622, 2298, 57, 104, "Code"],
Cell[187463, 3681, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[187601, 3689, 3958, 70, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[191584, 3763, 4631, 79, 53, "Subsubtitle"],
Cell[196218, 3844, 266, 4, 35, "Subsubsection"],
Cell[196487, 3850, 288, 4, 25, "Subsubsection"],
Cell[196778, 3856, 1833, 32, 35, "Subsubsection"],
Cell[198614, 3890, 3025, 69, 66, "Subsubtitle"],
Cell[201642, 3961, 771, 11, 35, "Subsubsection"],
Cell[202416, 3974, 3435, 84, 129, "Code"],
Cell[205854, 4060, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[205980, 4067, 4584, 79, 53, "Subsubtitle"],
Cell[210567, 4148, 278, 4, 35, "Subsubsection"],
Cell[210848, 4154, 302, 4, 25, "Subsubsection"],
Cell[211153, 4160, 1636, 30, 35, "Subsubsection"],
Cell[212792, 4192, 3161, 76, 71, "Subsubtitle"],
Cell[215956, 4270, 771, 11, 35, "Subsubsection"],
Cell[216730, 4283, 3519, 91, 129, "Code"],
Cell[220252, 4376, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[220378, 4383, 4356, 75, 62, "Subsubtitle"],
Cell[224737, 4460, 327, 5, 35, "Subsubsection"],
Cell[225067, 4467, 1443, 37, 42, "Subsubsection"],
Cell[226513, 4506, 1328, 24, 26, "Subsubsection"],
Cell[227844, 4532, 2649, 60, 62, "Subsubtitle"],
Cell[230496, 4594, 771, 11, 35, "Subsubsection"],
Cell[231270, 4607, 2393, 64, 104, "Code"],
Cell[233666, 4673, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[233792, 4680, 4738, 81, 53, "Subsubtitle"],
Cell[238533, 4763, 359, 5, 35, "Subsubsection"],
Cell[238895, 4770, 2166, 48, 39, "Subsubsection"],
Cell[241064, 4820, 912, 19, 26, "Subsubsection"],
Cell[241979, 4841, 2448, 52, 63, "Subsubtitle"],
Cell[244430, 4895, 771, 11, 35, "Subsubsection"],
Cell[245204, 4908, 2359, 58, 104, "Code"],
Cell[247566, 4968, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)